home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4th86_v4.zip / CEL4.4TH < prev    next >
Text File  |  1993-11-03  |  1KB  |  47 lines
  1.  
  2. on printload
  3.  
  4. 4 CONST LOWER        ( LOWER VALUE OF FAHR RANGE)
  5. 212 CONST UPPER         ( UPPER VALUE OF FAHR RANGE)
  6. 16 CONST STEP        ( INCREMENTING STEP FOR LOOP)
  7. DATA[ 0 ] FAHR        ( INTEGER VARIABLE)
  8. DATA[ 0.0 ] CELSIUS    ( FLOAT VARIABLE)
  9. DATA[ 0.0 ] SCLE    ( FLOAT VARIABLE)
  10.  
  11. on redefine
  12. : BS 08H .C ;        ( DEFINE BACKSPACE)
  13. : TAB 09H .C ;        ( DEFINE TAB)
  14. : LF 0AH .C ;        ( DEFINE LINEFEED)
  15. off redefine
  16.  
  17. : SFLOAT DOUBLE FLOAT ; ( CONVERT INTEGER TO FLOAT)
  18.  
  19. : CHDG TAB TAB BS BS BS " FAHRENHEIT" ." 
  20.       TAB TAB  "  CELSIUS" ." 
  21.                 CRLF LF ;   ( HEADING FOR TABLE)
  22.  
  23. : ANS TAB TAB FAHR @ . 
  24.        TAB TAB CELSIUS ,@ F.         ( ANSWER FOR EACH LINE OF TABLE)
  25.                    CRLF ;
  26.  
  27. : SSCLE 5.0 9.0 F/ 
  28.       SCLE ,! ;     ( EVALUATE 5/9 AND STORE AT SCLE)
  29.  
  30. : CALCULATE FAHR @ SFLOAT 
  31.     32.0 F- SCLE ,@ F* 
  32.     CELSIUS ,! ;            ( CALCULATE CELSIUS)
  33.  
  34. : INFAH FAHR @ STEP + FAHR ! ;        ( INCREMENT FAHR)
  35.  
  36. : CEL4  SSCLE CRLF CHDG 
  37.     LOWER FAHR !
  38.     REPEAT                 ( MAIN LOOP)
  39.             UPPER FAHR @ >=        ( TEST FOR END OF LOOP)
  40.          WHILE 
  41.         CALCULATE ANS INFAH        ( BODY OF LOOP)
  42.     ENDWHILE 
  43.         LOWER FAHR ! ;        ( ON EXIT FROM LOOP)
  44.  
  45.  
  46.  
  47.